home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / 1541 align (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  524b  |  22 lines
  1. 0 rem the transactor volume 6 issue 02        letters section
  2. 100 rem save"0:1541 align",8
  3. 105 rem written by: ed clutter, tucson, arizona
  4. 110 d=8: rem d = device number
  5. 115 open 15,d,15: open 2,d,2,"#"
  6. 120 print#15,"m-w" chr$(0) chr$(0) chr$(1) chr$(192)
  7. 125 t=35: h$="-"
  8. 130 t$=str$(t)
  9. 135 print#15,"b-r 2 0" t "9"
  10. 140 gosub 170
  11. 145 print#15,"b-r 2 0 1 9"
  12. 150 t$=str$(1)
  13. 155 gosub 170
  14. 160 t=t-1: if t>0 then 130
  15. 165 close2: close15: end
  16. 170 print: print "reading track "h$;t$,
  17. 175 input#15,a$,b$,c$,d$
  18. 180 print a$;h$;b$;h$;c$;h$;d$
  19. 185 if val(a$)<2 then return
  20. 190 print "drive has failed alignment check"
  21. 195 goto 165
  22.